(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     23692,        660]
NotebookOptionsPosition[     21969,        598]
NotebookOutlinePosition[     22739,        626]
CellTagsIndexPosition[     22661,        621]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Functions of several variables:
Some notes to investigate the functions\
\>", "Title",
 CellChangeTimes->{{3.6658298658592615`*^9, 3.6658298767792764`*^9}, {
  3.6658301704796877`*^9, 3.6658301755496945`*^9}, {3.671424717756358*^9, 
  3.671424735876384*^9}, {3.6714264757708197`*^9, 3.6714264887208376`*^9}, {
  3.671426531770898*^9, 3.671426536750905*^9}, {3.6714265890109787`*^9, 
  3.6714266049910007`*^9}, {3.6714294699670115`*^9, 3.67142949019704*^9}}],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Quadratic forms, quadratic functions", "MainSection",
 Evaluatable->False,
 CellChangeTimes->{{3.671425144496956*^9, 3.6714251650769844`*^9}, {
   3.6714295184770794`*^9, 3.6714295408871107`*^9}, 3.6714303585282555`*^9},
 AspectRatioFixed->True],

Cell[TextData[{
 "H : symmetric matrix, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["r", "\[Rule]"], "=", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], TraditionalForm]]],
 "\nDefine: \n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", "(", 
     OverscriptBox["r", "\[Rule]"], ")"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"H", ".", 
       OverscriptBox["r", "\[Rule]"]}], ")"}], ".", 
     OverscriptBox["r", "\[Rule]"]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.671429570487152*^9, 3.6714296951473265`*^9}, {
  3.671432921037695*^9, 3.671432927847705*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"H", "=", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"a11", "a12"},
        {"a12", "a22"}
       }], "\[NoBreak]", ")"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Column", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{"\"\<H=\>\"", ",", 
             RowBox[{"MatrixForm", "[", "H", "]"}]}], "}"}], "]"}], ",", 
          "\"\< \>\"", ",", "\[IndentingNewLine]", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{"\"\<Eigenvalues:\>\"", ",", 
             RowBox[{"Eigenvalues", "[", "H", "]"}]}], "}"}], "]"}], ",", 
          "\"\<        \>\"", ",", 
          RowBox[{"H", ".", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y"}], "}"}], ".", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y"}], "}"}]}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "\"\<        \>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"Plot3D", "[", 
        RowBox[{
         RowBox[{"H", ".", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}], ".", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"200", ",", "200"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a11", ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(a\), \(1, 1\)]\)\>\""}],
       "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a12", ",", "0", ",", 
       "\"\<\!\(\*SubscriptBox[\(a\), \(1, 2\)]\)=\!\(\*SubscriptBox[\(a\), \
\(2, 1\)]\)\>\""}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a22", ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(a\), \(2, 2\)]\)\>\""}],
       "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 PageWidth->Infinity,
 InitializationCell->True,
 CellChangeTimes->{{3.43516277340625*^9, 3.435162787453125*^9}, {
   3.6714251705469923`*^9, 3.671425170926993*^9}, 3.67142956161714*^9, {
   3.6714297175873585`*^9, 3.671429987077736*^9}, {3.6714300486578217`*^9, 
   3.671430112097911*^9}, {3.6714301646079845`*^9, 3.671430319638201*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a11$$ = 1, $CellContext`a12$$ = 
    0.14800000000000013`, $CellContext`a22$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a11$$], 1, 
       "\!\(\*SubscriptBox[\(a\), \(1, 1\)]\)"}, -1, 1}, {{
       Hold[$CellContext`a12$$], 0, 
       "\!\(\*SubscriptBox[\(a\), \(1, 2\)]\)=\!\(\*SubscriptBox[\(a\), \(2, \
1\)]\)"}, -1, 1}, {{
       Hold[$CellContext`a22$$], 1, 
       "\!\(\*SubscriptBox[\(a\), \(2, 2\)]\)"}, -1, 1}}, Typeset`size$$ = {
    719., {120., 130.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a11$31392$$ = 
    0, $CellContext`a12$31393$$ = 0, $CellContext`a22$31394$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a11$$ = 1, $CellContext`a12$$ = 
        0, $CellContext`a22$$ = 1}, "ControllerVariables" :> {
        Hold[$CellContext`a11$$, $CellContext`a11$31392$$, 0], 
        Hold[$CellContext`a12$$, $CellContext`a12$31393$$, 0], 
        Hold[$CellContext`a22$$, $CellContext`a22$31394$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`H = {{$CellContext`a11$$, $CellContext`a12$$}, \
{$CellContext`a12$$, $CellContext`a22$$}}; Row[{
          Column[{
            Row[{"H=", 
              MatrixForm[$CellContext`H]}], " ", 
            Row[{"Eigenvalues:", 
              Eigenvalues[$CellContext`H]}], "        ", 
            
            Dot[$CellContext`H, {$CellContext`x, $CellContext`y}, \
{$CellContext`x, $CellContext`y}]}], "        ", 
          Plot3D[
           
           Dot[$CellContext`H, {$CellContext`x, $CellContext`y}, \
{$CellContext`x, $CellContext`y}], {$CellContext`x, -1, 
            1}, {$CellContext`y, -1, 1}, BoxRatios -> Automatic, 
           ImageSize -> {200, 200}]}]), 
      "Specifications" :> {{{$CellContext`a11$$, 1, 
          "\!\(\*SubscriptBox[\(a\), \(1, 1\)]\)"}, -1, 
         1}, {{$CellContext`a12$$, 0, 
          "\!\(\*SubscriptBox[\(a\), \(1, 2\)]\)=\!\(\*SubscriptBox[\(a\), \
\(2, 1\)]\)"}, -1, 
         1}, {{$CellContext`a22$$, 1, 
          "\!\(\*SubscriptBox[\(a\), \(2, 2\)]\)"}, -1, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{784., {210., 221.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6714300947978864`*^9, 3.671430112937912*^9}, 
   3.6714301819680085`*^9, 3.67143022604807*^9, {3.671430258008115*^9, 
   3.6714303250582085`*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Look at the function on the practice", "MainSection",
 CellChangeTimes->{
  3.6658306926904182`*^9, {3.6658307304104714`*^9, 3.665830735070478*^9}, {
   3.6714250730068555`*^9, 3.671425121726924*^9}, {3.67142526893713*^9, 
   3.671425289327159*^9}, {3.6714266522210665`*^9, 3.671426661091079*^9}, {
   3.6714270137515726`*^9, 3.6714270253115892`*^9}, {3.6714270820016685`*^9, 
   3.671427101341696*^9}, {3.671430364228264*^9, 3.671430372218275*^9}, {
   3.671430426628351*^9, 3.6714304313083577`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"V", "(", 
    RowBox[{"x_", ",", "y_"}], ")"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "3"], "-", 
      RowBox[{"2", " ", "x", " ", 
       SuperscriptBox["y", "3"]}]}], ")"}], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["x", "2"]}], "-", 
      SuperscriptBox["y", "2"]}]]}]}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.669018438676175*^9, 3.6690185202646985`*^9}, 
   3.66902085429634*^9, {3.66902088928714*^9, 3.66902097900274*^9}, 
   3.671259953854041*^9, 3.6714293381268272`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Plot3D", "[", 
       RowBox[{
        RowBox[{"V", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{
           RowBox[{"r0", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", "d"}], ",", 
          RowBox[{
           RowBox[{"r0", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "+", "d"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{
           RowBox[{"r0", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "-", "d"}], ",", 
          RowBox[{
           RowBox[{"r0", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "+", "d"}]}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"BoxRatios", "\[Rule]", "1"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"ColorFunction", "\[Rule]", 
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z", 
            "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"MeshFunctions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "z"}], "]"}], 
          "}"}]}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"200", ",", "200"}], "}"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"DensityPlot", "[", 
         RowBox[{
          RowBox[{"V", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", 
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y"}], "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"ColorFunction", "\[Rule]", 
           RowBox[{"Function", "[", 
            RowBox[{
             RowBox[{"{", "z", "}"}], ",", 
             RowBox[{
              RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z", 
              "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"MeshFunctions", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Function", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "z"}], "]"}], 
            "}"}]}]}], "]"}], ",", 
        RowBox[{"Graphics", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Point", "[", "r0", "]"}], ",", 
           RowBox[{"Circle", "[", 
            RowBox[{"r0", ",", "d"}], "]"}]}], "}"}], "]"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"200", ",", "200"}], "}"}]}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r0", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3"}], ",", 
       RowBox[{"-", "3"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"d", ",", "3", ",", "0.1"}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.669018564646983*^9, 3.669018598405599*^9}, {
  3.66902079099154*^9, 3.6690208317699404`*^9}, {3.66902122088074*^9, 
  3.66902131123594*^9}, {3.6690213472097244`*^9, 3.6690213750715027`*^9}, {
  3.6714304721484146`*^9, 3.6714306287886343`*^9}, {3.671430692308723*^9, 
  3.671430927969053*^9}, {3.6845841574743404`*^9, 3.6845841635646887`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`d$$ = 
    0.16, $CellContext`r0$$ = {-0.8599999999999999, -1.0999999999999999`}, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`r0$$], {0, 0}}, {-3, -3}, {3, 3}}, {
      Hold[$CellContext`d$$], 3, 0.1}}, Typeset`size$$ = {500., {120., 130.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`r0$882$$ = {0, 0}, $CellContext`d$885$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`d$$ = 3, $CellContext`r0$$ = {0, 0}}, 
      "ControllerVariables" :> {
        Hold[$CellContext`r0$$, $CellContext`r0$882$$, {0, 0}], 
        Hold[$CellContext`d$$, $CellContext`d$885$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Row[{
         Plot3D[
          $CellContext`V[$CellContext`x, $CellContext`y], {$CellContext`x, 
           Part[$CellContext`r0$$, 1] - $CellContext`d$$, 
           Part[$CellContext`r0$$, 1] + $CellContext`d$$}, {$CellContext`y, 
           Part[$CellContext`r0$$, 2] - $CellContext`d$$, 
           Part[$CellContext`r0$$, 2] + $CellContext`d$$}, PlotRange -> All, 
          BoxRatios -> 1, 
          AxesLabel -> {$CellContext`x, $CellContext`y, $CellContext`z}, 
          ColorFunction -> 
          Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
            ColorData["Rainbow"][$CellContext`z]], MeshFunctions -> {
            
            Function[{$CellContext`x, $CellContext`y, $CellContext`z}, \
$CellContext`z]}, ImageSize -> {200, 200}], 
         Show[
          DensityPlot[
           $CellContext`V[$CellContext`x, $CellContext`y], {$CellContext`x, \
-3, 3}, {$CellContext`y, -3, 3}, PlotRange -> All, 
           AxesLabel -> {$CellContext`x, $CellContext`y}, ColorFunction -> 
           Function[{$CellContext`z}, 
             ColorData["Rainbow"][$CellContext`z]], MeshFunctions -> {
             
             Function[{$CellContext`x, $CellContext`y, $CellContext`z}, \
$CellContext`z]}], 
          Graphics[{
            Point[$CellContext`r0$$], 
            Circle[$CellContext`r0$$, $CellContext`d$$]}], 
          ImageSize -> {200, 200}]}], 
      "Specifications" :> {{{$CellContext`r0$$, {0, 0}}, {-3, -3}, {3, 
         3}}, {$CellContext`d$$, 3, 0.1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{565., {234., 245.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`V[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := ($CellContext`x^3 - 2 $CellContext`x $CellContext`y^3) 
        E^(-$CellContext`x^2 - $CellContext`y^2)}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.6845842147746177`*^9}]
}, {2}]],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"]],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"]]
}], "Section",
 TextAlignment->Right]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Apply the second order Taylor approximation", "MainSection",
 CellChangeTimes->{
  3.6658306926904182`*^9, {3.6658307304104714`*^9, 3.665830735070478*^9}, {
   3.6714250730068555`*^9, 3.671425121726924*^9}, {3.67142526893713*^9, 
   3.671425289327159*^9}, {3.6714266522210665`*^9, 3.671426661091079*^9}, {
   3.6714270137515726`*^9, 3.6714270253115892`*^9}, {3.6714270820016685`*^9, 
   3.671427101341696*^9}, {3.6714272079118447`*^9, 3.671427209531847*^9}, {
   3.6714312789253964`*^9, 3.6714313042254314`*^9}}],

Cell[TextData[{
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["r", "\[Rule]"], "=", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox[
     SubscriptBox["r", "0"], "\[Rule]"], "=", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["y", "0"]}], "}"}]}], TraditionalForm]]],
 "\ngradient: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Del]", " ", 
    RowBox[{"V", "(", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["y", "0"]}], ")"}]}], TraditionalForm]]],
 "\nHesse matrix (second derivative matrix) H =",
 Cell[BoxData[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SubscriptBox["\[PartialD]", 
        RowBox[{"x", ",", "x"}]], "V"}], 
      RowBox[{
       SubscriptBox["\[PartialD]", 
        RowBox[{"x", ",", "y"}]], "V"}]},
     {
      RowBox[{
       SubscriptBox["\[PartialD]", 
        RowBox[{"y", ",", "x"}]], "V"}], 
      RowBox[{
       SubscriptBox["\[PartialD]", 
        RowBox[{"y", ",", "y"}]], "V"}]}
    }], "\[NoBreak]", ")"}]]],
 " at ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox[
     SubscriptBox["r", "0"], "\[Rule]"], "=", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["y", "0"]}], "}"}]}], TraditionalForm]]],
 "\n \nDefine: \n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", "(", 
     OverscriptBox["r", "\[Rule]"], ")"}], "=", 
    RowBox[{"H", ".", 
     OverscriptBox["r", "\[Rule]"], ".", 
     OverscriptBox["r", "\[Rule]"]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.671429570487152*^9, 3.6714296951473265`*^9}, {
  3.671431409185579*^9, 3.671431609195859*^9}, {3.671431649355915*^9, 
  3.6714316495759153`*^9}, {3.682237952848608*^9, 3.682237955110325*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{" ", 
     RowBox[{
      RowBox[{"V", "(", 
       OverscriptBox["r", "\[Rule]"], ")"}], "\[TildeTilde]", " ", 
      RowBox[{"V", "(", 
       OverscriptBox[
        SubscriptBox["r", "0"], "\[Rule]"], ")"}]}], ")"}], "+", 
    RowBox[{
     RowBox[{"\[Del]", " ", 
      RowBox[{"V", "(", 
       RowBox[{
        SubscriptBox["x", "0"], ",", 
        SubscriptBox["y", "0"]}], ")"}]}], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["r", "\[Rule]"], "-", 
       OverscriptBox[
        SubscriptBox["r", "0"], "\[Rule]"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", "!"}]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"H", ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["r", "\[Rule]"], "-", 
          OverscriptBox[
           SubscriptBox["r", "0"], "\[Rule]"]}], ")"}]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["r", "\[Rule]"], "-", 
        OverscriptBox[
         SubscriptBox["r", "0"], "\[Rule]"]}], ")"}]}]}]}], TraditionalForm]]],
 " "
}], "Text",
 CellChangeTimes->{{3.671431329815468*^9, 3.671431378585536*^9}, {
  3.671431619735873*^9, 3.6714317347760344`*^9}}]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->"EditBar",
WindowSize->{1202, 937},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
StyleDefinitions->"Modelstyle-EN.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[1050, 32, 106, 2, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[8228, 222, 106, 2, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[18173, 470, 106, 2, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 22373, 611}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 467, 8, 194, "Title"],
Cell[CellGroupData[{
Cell[1050, 32, 106, 2, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[1181, 38, 251, 4, 68, "MainSection",
 Evaluatable->False],
Cell[1435, 44, 625, 21, 169, "Text"],
Cell[CellGroupData[{
Cell[2085, 69, 2819, 77, 566, "Input",
 InitializationCell->True],
Cell[4907, 148, 3263, 67, 474, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8228, 222, 106, 2, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[8359, 228, 507, 7, 68, "MainSection"],
Cell[8869, 237, 636, 18, 92, "Input"],
Cell[CellGroupData[{
Cell[9530, 259, 4248, 110, 453, "Input"],
Cell[13781, 371, 3532, 71, 522, "Output"]
}, {2}]],
Cell[17325, 445, 799, 19, 69, "Section"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18173, 470, 106, 2, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[18304, 476, 518, 7, 68, "MainSection"],
Cell[18825, 485, 1866, 66, 373, "Text"],
Cell[20694, 553, 1247, 41, 68, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

